home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zn.d64 / proc.file'u'gr.P < prev    next >
Text File  |  2007-03-01  |  775b  |  26 lines
  1. 0010 ╨╥╧├ FILE'U'GRAPH(╥┼╞ VALUES(,),╥┼╞ SCALE$(,),╥┼╞ LABELS$(),F$) ├╠╧╙┼─
  2. 0015   //PRINT : ┬RIAN 11.9.86
  3. 0020   ╧╨┼╬ ╞╔╠┼ 2,"@0:U'GR."+F$,╫╥╔╘┼
  4. 0030   ╨╥╔╬╘ ╞╔╠┼ 2: VALUES(0,1)
  5. 0040   ╨╥╔╬╘ ╞╔╠┼ 2: VALUES(0,2)
  6. 0050   ╞╧╥ I:=1 ╘╧ VALUES(0,1) ─╧
  7. 0060     ╨╥╔╬╘ ╞╔╠┼ 2: VALUES(I,1)
  8. 0065     ╨╥╔╬╘ ╞╔╠┼ 2: VALUES(I,2)
  9. 0070   ┼╬─╞╧╥ I
  10. 0080   ╞╧╥ I:=0 ╘╧ 2 ─╧ ╨╥╔╬╘ ╞╔╠┼ 2: LABELS$(I)
  11. 0090   ╞╧╥ AXIS:=1 ╘╧ 2 ─╧
  12. 0100     ╨╥╔╬╘ ╞╔╠┼ 2: SCALE$(0,AXIS)
  13. 0110     ├┴╙┼ SCALE$(0,AXIS)(1) ╧╞
  14. 0120     ╫╚┼╬ "N"
  15. 0130       N:=3
  16. 0140     ╫╚┼╬ "A"
  17. 0150       N:=╓┴╠(SCALE$(0,AXIS)(2:))
  18. 0160     ╫╚┼╬ "V"
  19. 0170       N:=2*╓┴╠(SCALE$(0,AXIS)(2:))+3
  20. 0180     ┼╬─├┴╙┼ 
  21. 0190     ╞╧╥ I:=1 ╘╧ N ─╧ ╨╥╔╬╘ ╞╔╠┼ 2: SCALE$(I,AXIS)
  22. 0200   ┼╬─╞╧╥ AXIS
  23. 0210   ├╠╧╙┼ ╞╔╠┼ 2
  24. 0220 ┼╬─╨╥╧├ FILE'U'GRAPH
  25. 0230 
  26.